home *** CD-ROM | disk | FTP | other *** search
/ CD Concept 6 / CD Concept 06.iso / mac / UTILITAIRE / Survival 6.0.2 / Macros / Recode.Macro < prev    next >
Encoding:
Text File  |  1995-01-25  |  231 b   |  13 lines  |  [TEXT/MJUA]
  1. MACRO 'Recode'
  2.  
  3. var
  4. grado,stage:integer;
  5.  
  6. begin
  7.     grado:= 4;
  8.  stage:= 5;
  9. {RECODE(4:1:2;5:2:3:-9);an alternative way}
  10. {RECODE(grade:1:2;stage:2:3:-9); another way}
  11.  RECODE(rData[5]:2:1;rData[5]:3:2);{this also works}
  12.  LIST(8,0);
  13. end;